home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed23.d64 / math iq (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  250 lines
  1. 5 POKE59468,14:CLR:DIMA(20),NU(20)
  2. 6 MM=15:MN=60:FORI=1TO20:READNU(I):NEXT
  3. 7 POKE53272,23:POKE53280,0:POKE53281,0:POKE646,3
  4. 8 GOTO80
  5. 10 TD=TI+TC
  6. 11 IFTI<TDTHEN11
  7. 12 RETURN
  8. 50 FORI=1TO10:POKE33334,81:GOSUB10:POKE33334,87:GOSUB10:NEXT:C=80:RETURN
  9. 51 FORI=1TO10:POKE33296,64:GOSUB10:POKE33296,98:GOSUB10:NEXT:C=85:RETURN
  10. 52 FORI=1TO10:POKE33298,81:GOSUB10:POKE33298,87:GOSUB10:NEXT:C=90:RETURN
  11. 53 FORI=1TO10:POKE33260,64:GOSUB10:POKE33260,98:GOSUB10:NEXT:C=95:RETURN
  12. 54 FORI=1TO10:POKE33262,81:GOSUB10:POKE33262,87:GOSUB10:NEXT:C=100:RETURN
  13. 55 FORI=1TO10:POKE33224,64:GOSUB10:POKE33224,98:GOSUB10:NEXT:C=105:RETURN
  14. 56 FORI=1TO10:POKE33226,81:GOSUB10:POKE33226,87:GOSUB10:NEXT:C=110:RETURN
  15. 57 FORI=1TO10:POKE33188,64:GOSUB10:POKE33188,98:GOSUB10:NEXT:C=115:RETURN
  16. 58 FORI=1TO10:POKE33190,81:GOSUB10:POKE33190,87:GOSUB10:NEXT:C=120:RETURN
  17. 59 FORI=1TO10:POKE33152,64:GOSUB10:POKE33152,98:GOSUB10:NEXT:C=125:RETURN
  18. 60 FORI=1TO10:POKE33154,81:GOSUB10:POKE33154,87:GOSUB10:NEXT:C=130:RETURN
  19. 61 FORI=1TO10:POKE33116,64:GOSUB10:POKE33116,98:GOSUB10:NEXT:C=135:RETURN
  20. 62 FORI=1TO10:POKE33118,81:GOSUB10:POKE33118,87:GOSUB10:NEXT:C=140:RETURN
  21. 63 FORI=1TO10:POKE33080,64:GOSUB10:POKE33080,98:GOSUB10:NEXT:C=145:RETURN
  22. 64 FORI=1TO10:POKE33082,81:GOSUB10:POKE33082,87:GOSUB10:NEXT:C=150:RETURN
  23. 65 FORI=1TO10:POKE33044,81:GOSUB10:POKE33044,87:GOSUB10:NEXT
  24. 66 C=150+(C-15)*5:RETURN
  25. 80 AA$=""
  26. 90 C$=" [192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][145]"
  27. 100 PRINT"[147]                                        [146]";
  28. 105 PRINT"            [205][193][212][200][160][201].[209]. [212][197][211][212]              [146]";
  29. 110 PRINT"                                        [146]":FORTM=1TO1500:NEXT
  30. 120 PRINT"[159]  [217]OU HAVE 15 MINUTES TO COMPLETE 20      QUESTIONS."
  31. 130 PRINT"  [201]N EACH PROBLEM, ENTER THE MISSING      NUMBER."
  32. 135 PRINT"   [206][207][212][197]:[146]  TYPE  [206] [146] TO SKIP TO THE NEXT            PROBLEM."
  33. 140 FORTM=1TO2000:NEXT
  34. 145 PRINT"[154]    [208]RESS [211][208][193][195][197][160][194][193][210][146] TO CONTINUE[159]"
  35. 150 GETA$:IFA$<>CHR$(32) THEN150
  36. 160 IFFLAG=1THENPRINT"[147]":RETURN
  37. 170 TI$="000000":GOTO190
  38. 180 FORTM=1TO1000:NEXT:PRINT"[147]"TAB(17);"TIME ELAPSED:"TI$
  39. 185 FORTM=1TO1000:NEXT:RETURN
  40. 190 GOSUB180
  41. 200 PRINT"1)"
  42. 220 PRINT"   4  8  6"
  43. 230 PRINT"   6  2  4
  44. 240 [153]"   8  6  ?";
  45. 241 [139]FLAG[179][177]1[167]250
  46. 242 [153][166]11);"ATNNSWER = "NU(1)"CMD WAIT"
  47. 243 [153]" ATNDD THE FIRST 2 COLUMNS AND DIVIDE BY 2":[137]300
  48. 250 [141]2000:[139]FLAG[178]2[167]1325
  49. 260 [141]180
  50. 300 [153]"2) 7  13  24  45  ?";
  51. 311 [139]FLAG[179][177]1[167]320
  52. 312 [153]"  ATNNSWER = "NU(2)"CMD WAIT "
  53. 313 [153]"+6+11+21+36"
  54. 314 [153]"+5+10+15":[137]350
  55. 320 [141]2000:[139]FLAG[178]2[167]1325
  56. 330 [141]180
  57. 350 [153]"3) 6  10  18  34  ?";
  58. 361 [139]FLAG[179][177]1[167]370
  59. 362 [153]"  ATNNSWER = "NU(3)"CMD WAIT"
  60. 363 [153]"+4+8+16+32"
  61. 364 [153]"*2*2*2":[141]140:[137]400
  62. 370 [141]2000:[139]FLAG[178]2[167]1325
  63. 390 [141]180
  64. 400 [153]"4) 212 179 146 113  ?";
  65. 411 [139]FLAG[179][177]1[167]420
  66. 412 [153]"  ATNNSWER = ";NU(4);"CMD WAIT"
  67. 413 [153]"-33-33-33-33":[137]450
  68. 420 [141]2000:[139]FLAG[178]2[167]1325
  69. 430 [141]180
  70. 450 [153]"5)"
  71. 460 [153]"   4  1  2"
  72. 470 [153]"   2  6  3"
  73. 480 [153]"   3  2  ?";
  74. 481 [139]FLAG[179][177]1[167]490
  75. 482 [153][166]13);"ATNNSWER = "NU(5)"CMD WAIT"
  76. 483 [153]" VALACH COLUMN SHOULD TOTAL 9":[137]520
  77. 490 [141]2000:[139]FLAG[178]2[167]1325
  78. 510 [141]180
  79. 520 [153]"6) 4  5  7  11  ?";
  80. 531 [139]FLAG[179][177]1[167]540
  81. 532 [153]"ATNNSWER = "NU(6)"CMD WAIT"
  82. 533 [153]"    +1+2+4+8((null)OWERS OF 2)":[141]140:[137]570
  83. 540 [141]2000:[139]FLAG[178]2[167]1325
  84. 565 [141]180
  85. 570 [153]"7) 9  4  1"
  86. 590 [153]"   6  6  2"
  87. 600 [153]"   1  9  ?";
  88. 601 [139]FLAG[179][177]1[167]610
  89. 602 [153][166]11);"ATNNSWER = ";NU(7);"CMD WAIT"
  90. 603 [153]"  VALACH ROW SHOULD TOTAL 14":[137]640
  91. 610 [141]2000:[139]FLAG[178]2[167]1325
  92. 620 [141]180
  93. 640 [153]"8) 8  2  4"
  94. 660 [153]"   1  5  3"
  95. 670 [153]"   1  3  ?";
  96. 671 [139]FLAG[179][177]1[167]680
  97. 672 [153][166]11);"ATNNSWER = ";NU(8);"CMD WAIT"
  98. 673 [153]"  VALACH COLUMN SHOULD TOTAL 10":[137]710
  99. 680 [141]2000:[139]FLAG[178]2[167]1325
  100. 690 [141]180
  101. 710 [153]"9) 6  7  9  13  ?";
  102. 721 [139]FLAG[179][177]1[167]730
  103. 722 [153]"ATNNSWER = "NU(9)"CMD WAIT"
  104. 723 [153]"     +1+2+4+8((null)OWERS OF 2)":[141]140:[137]760
  105. 730 [141]2000:[139]FLAG[178]2[167]1325
  106. 750 [141]180
  107. 760 [153]"10) 15 13 29 ?";
  108. 771 [139]FLAG[179][177]1[167]780
  109. 772 [153]"ATNNSWER = "NU(10)"CMD WAIT"
  110. 773 [153]"+4+8+16+32  ((null)OWERS OF 2)":[137]810
  111. 780 [141]2000:[139]FLAG[178]2[167]1325
  112. 790 [141]180
  113. 810 [153]"11)2  10  4"
  114. 830 [153]"   3  17  5"
  115. 840 [153]"   3  ??  6";
  116. 841 [139]FLAG[179][177]1[167]850
  117. 842 [153][166]15);"ATNNSWER = "NU(11)"CMD WAIT"
  118. 843 [153]"(null)ULTIPLY COLUMN 1 & 3 SUBTRACT THE      PRODUCT FROM COLUMN 2 THE ";
  119. 844 [153]"DIFFERENCE    SHOULD BE 2":[137]880
  120. 850 [141]2000:[139]FLAG[178]2[167]1325
  121. 870 [141]180
  122. 880 [153]"12) 2  8  5  6  8  ?  11";
  123. 891 [139]FLAG[179][177]1[167]900
  124. 892 [153]"ATNNSWER = "NU(12)"CMD WAIT"
  125. 893 [153]"+6-3+1+2-4+7"
  126. 894 [153]"-3-2+1+2-3ON":[141]140:[137]930
  127. 900 [141]2000:[139]FLAG[178]2[167]1325
  128. 920 [141]180
  129. 930 [153]"13) 2  8  20  44  ?";
  130. 941 [139]FLAG[179][177]1[167]950
  131. 942 [153]"ATNNSWER = "NU(13)"CMD WAIT"
  132. 943 [153]"+6+12+24+48"
  133. 944 [153]"*2*2*2":[137]980
  134. 950 [141]2000:[139]FLAG[178]2[167]1325
  135. 970 [141]180
  136. 980 [153]"14) 5  25  85  265  ?";
  137. 991 [139]FLAG[179][177]1[167]1000
  138. 992 [153]"ATNNSWER = "NU(14)"CMD WAIT"
  139. 993 [153]"+20+60+180+540"
  140. 994 [153]"*3*3*3":[137]1030
  141. 1000 [141]2000:[139]FLAG[178]2[167]1325
  142. 1020 [141]180
  143. 1030 [153]"15) 24  26  30  38  ?";
  144. 1041 [139]FLAG[179][177]1[167]1050
  145. 1042 [153]"ATNNSWER = "NU(15)"CMD WAIT"
  146. 1043 [153]"+2+4+8+16 "
  147. 1044 [153]"*2*2*2":[141]140:[137]1080
  148. 1050 [141]2000:[139]FLAG[178]2[167]1325
  149. 1070 [141]180
  150. 1080 [153]"16) 2  6   38   ?";
  151. 1091 [139]FLAG[179][177]1[167]1100
  152. 1092 [153][166]8);"ATNNSWER = "NU(16)"CMD WAIT"
  153. 1093 [153]"   (null)CMD/TAN+3ONCMD(null)6TANEXPONCMD(null)(null)CMD(null)"
  154. 1094 [153]"     (null)/TANCMDCMDCMD/TAN*40TANEXPONCMDCMDCMDCMD+1440TANEXP":[137]1120
  155. 1100 [141]2000:[139]FLAG[178]2[167]1325
  156. 1110 [141]180
  157. 1120 [153]"17) 5  9  4  6  8  ?";
  158. 1131 [139]FLAG[179][177]1[167]1140
  159. 1132 [153]"ATNNSWER = "NU(17)"CMD WAIT"
  160. 1133 [153]"   /TANTAN-1TANEXP  (null)  (null)  (null)"
  161. 1134 [153]"   /TANTANTAN+1TANTANTANEXP  (null)  (null)"
  162. 1135 [153]"   /TANTANTANTANTAN+3TANTANTANTANEXPCMDTANTANTANEXPONCMD(null)"
  163. 1136 [153]"   /TANTANTANTANTANTAN-3TANTANTANTAN":[137]1180
  164. 1140 [141]2000:[139]FLAG[178]2[167]1325
  165. 1170 [141]180
  166. 1180 [153]"18)6  8  10  11  14  14  ?";
  167. 1191 [139]FLAG[179][177]1[167]1200
  168. 1192 [153]"ATNNS = "NU(18)"CMD WAIT"
  169. 1193 [153]"   /TAN+4TANTANEXP/TANTAN+4TANTANEXP/TANTAN+4TANTANEXP"
  170. 1194 [153]"(null)CMD/TANTAN+3TANTANEXPONCMD(null)(null)CMD/TANTAN+3TANTANEXPONCMD(null)":[141]140:[137]1230
  171. 1200 [141]2000:[139]FLAG[178]2[167]1325
  172. 1220 [141]180
  173. 1230 [153]"19) 9 1 6 41 ?";
  174. 1241 [139]FLAG[179][177]1[167]1250
  175. 1242 [153]"ATNNSWER = "NU(19)"CMD WAIT"
  176. 1243 [153]"+5+35+1645"
  177. 1244 [153]"*7*47":[137]1280
  178. 1250 [141]2000
  179. 1260 [139]FLAG[178]2[167]1325
  180. 1270 [141]180
  181. 1280 [153]"20)200  162  124  ?";
  182. 1291 [139]FLAG[179][177]1[167]1295
  183. 1292 [153]"ATNNSWER = "NU(20)"CMD WAIT"
  184. 1293 [153]"-38-38-38":[137]1600
  185. 1295 [141]2000:[139]FLAG[178]2[167]1325
  186. 1300 [129]K[178]1[164]20:[139]A(K)[179][177]1[167]1325
  187. 1302 FLAG[178]2:[153]"LOAD"[163]22);"MINUTES REMAINING"
  188. 1318 [139]K[178]17[167]1120
  189. 1319 [139]K[178]18[167]1180
  190. 1320 [139]K[178]19[167]1230
  191. 1321 [139]K[178]20[167]1280
  192. 1322 [145]K[137]200,300,350,400,450,520,570,640,710,760,810,880,930,980,1030,1080
  193. 1325 [130]K:FLAG[178]0
  194. 1330 [151]59468,12:[153]"LOAD (null)OU HAVE"C"CORRECT OUT OF 20 PROBLEMS"
  195. 1340 [153]" (null)BSERVE YOUR SCORE ON THE GRAPH BELOW"
  196. 1350 [153][163]15);" RIGHT$.(null). WAIT"
  197. 1360 K[178]0:[129]J[178]15[164]8[169][171]1
  198. 1370 [153][201]([196](J[172]10),3)C$:[153][200](AA$,34[171]K[172]4);"(null)"
  199. 1440 K[178]K[170]1:[130]J
  200. 1450 [153]"      1   3   5   7   9   11  13  15":TC[178]30
  201. 1455 [145]C[141]50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,65,65,65,65
  202. 1460 [153][163]8);"RIGHT$.(null). SCORE = "C"POINTS"
  203. 1462 [139]C[177]95[167]1465
  204. 1463 [153]"       ATN MATHEMATICAL MENTAL MIDGET !":[137]1478
  205. 1465 [139]C[177]110[167]1468
  206. 1466 [153]"       ATNN AVERAGE MATHEMATICAL I.Q.":[137]1478
  207. 1468 [139]C[177]130[167]1471
  208. 1469 [153]"       ATN SUPER MATHEMATICAL WHIZ !!":[137]1478
  209. 1471 [153]"          ATN MATHEMATICAL GENIUS !!"
  210. 1478 [153]"   STR$O YOU WANT TO DISPLAY THE ANSWERS ?              Y/N  ";
  211. 1480 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]1480
  212. 1490 [139]A$[178]"N"[167]1600
  213. 1500 FLAG[178]1:[151]59468,14:[153]"LOAD":[137]200
  214. 1600 [153]"LOAD(null)OU HAVE A CHOICE:
  215. 1610 PRINT"[208]RESS  [208] [146] TO PLAY AGAIN
  216. 1620 [153]"(null)RESS  (null) WAIT TO GO TO DISK MENU
  217. 1630 GETR$:IFR"<>"P"ANDR$<>""ANDR$<>"M"ANDR$<>""THEN1630
  218. 1640 [139]R$[178]"P"[167][138]
  219. 1650 [139]R$[178]"(null)"[167][138]
  220. 1660 [153]"LOAD(null)ETURNING TO THE DISK MENU
  221. 1670 LOAD"MENU",8
  222. 1680 RUN
  223. 1690 END
  224. 1699 :
  225. 2000 PRINT:PRINT" [197]NTER THE MISSING NUMBER ";
  226. 2003 IFFLAG=2THENJ=1:GOTO2010
  227. 2005 J=1:CO=CO+1
  228. 2010 PRINT"?";
  229. 2015 MX=MM-INT((TI-TM)/(60*60)+.5)
  230. 2020 MX$=STR$(MX):MX$=RIGHT$(MX$,2):M1=ASC(LEFT$(MX$,1)):M2=ASC(RIGHT$(MX$,1))
  231. 2024 POKE32787,M1:POKE32788,M2
  232. 2025 IFTI-TM<MN*MN*MMTHEN2030
  233. 2026 PRINT"[158][157]TIME'S UP":FORI=1TO3000:NEXT:GOTO1330
  234. 2030 GETJ$(J):IFJ$(J)=""THEN2025
  235. 2040 IFJ$(J)=CHR$(20)THENPRINT"[157] [157][157]?";:J=J-1:GOTO2030
  236. 2050 IFJ$(1)=CHR$(13)THEN2030
  237. 2060 IFJ$(J)=CHR$(13)THENPRINT"[157] ":GOTO2090
  238. 2070 PRINT"[157]";J$(J);
  239. 2075 IFJ$(J)="N"THENPRINT:A(CO)=1:RETURN
  240. 2080 IFJ$(J)<"0"ORJ$(J)>"9"THENPRINT"[157] [157]?";:GOTO2030
  241. 2085 J=J+1:GOTO2010
  242. 2090 J$=""
  243. 2100 FORL=1TOJ-1
  244. 2110 J$=J$+J$(L):NEXT
  245. 2120 B=VAL(J$):IFB=NU(CO)THENC=C+1
  246. 2125 IFA(K)=1ANDB=NU(K)THENC=C+1
  247. 2130 RETURN
  248. 3000 DATA7,86,66,80,4,19,4,3,21,61,20,4,92,805,54,1446,2,18,1686,86
  249. 3500 REM WHC  91:04:01/95:05:27
  250.